home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / 2Cyl2Dsk.ray < prev    next >
Text File  |  1999-07-06  |  1KB  |  46 lines
  1. Viewpoint(1000, 1.6, -0.9)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Cylinder(40,     ' Radius
  6.   -60, 100, 0,   ' Point1
  7.   -60, -100, 0,  ' Point2
  8.   0.1, 0.1, 0.5, ' Ambient.
  9.   0.1, 0.1, 0.5, ' Diffuse.
  10.   20, 0.35,      ' Specular.
  11.   0, 0, 0,       ' Reflected.
  12.   3, 1, 1.4,     ' TransN, n1, n2.
  13.   0, 0, 0        ' Tansmission.
  14. )
  15. Cylinder(40,     ' Radius
  16.   60, 100, 0,    ' Point1
  17.   60, -100, 0,   ' Point2
  18.   0.4, 0.1, 0.4, ' Ambient.
  19.   0.4, 0.1, 0.4, ' Diffuse.
  20.   20, 0.35,      ' Specular.
  21.   0, 0, 0,       ' Reflected.
  22.   3, 1, 1.4,     ' TransN, n1, n2.
  23.   0, 0, 0        ' Tansmission.
  24. )
  25. Disk(40,         ' Radius
  26.   60, 100, 0,    ' Point on plane
  27.   0, 1, 0,       ' Normal vector
  28.   0.4, 0.1, 0.4, ' Ambient.
  29.   0.4, 0.1, 0.4, ' Diffuse.
  30.   20, 0.35,      ' Specular.
  31.   0, 0, 0,       ' Reflected.
  32.   3, 1, 1.4,     ' TransN, n1, n2.
  33.   0, 0, 0        ' Tansmission.
  34. )
  35. Disk(40,         ' Radius
  36.   60, -100, 0,   ' Point on plane
  37.   0, 1, 0,       ' Normal vector
  38.   0.4, 0.1, 0.4, ' Ambient.
  39.   0.4, 0.1, 0.4, ' Diffuse.
  40.   20, 0.35,      ' Specular.
  41.   0, 0, 0,       ' Reflected.
  42.   3, 1, 1.4,     ' TransN, n1, n2.
  43.   0, 0, 0        ' Tansmission.
  44. )
  45.  
  46.